home *** CD-ROM | disk | FTP | other *** search
/ Regional Industry Buying Guide: Greater Florida / 2000 Regional Industry Buying Guide - Greater Florida.iso / cs2k / clients / classic / scripts.lib / UUNET.SCR < prev   
Encoding:
Text File  |  1998-09-30  |  2.0 KB  |  91 lines
  1. !
  2. !  Copyright (c) 1998
  3. !  by CompuServe Interactive Services, Inc. Columbus, Ohio
  4. !
  5. !  The information in this software is subject to change without
  6. !  notice and should not be construed as a commitment by CompuServe.
  7. !
  8. !  UUNet:
  9. !       Connect to UUNet
  10. !       Success:  returns %Success
  11. !       Failure:  saves error msg in %FailureMsg and returns %Failure
  12. !
  13. !+V
  14. ! "4.0.5"
  15. !-V
  16.  
  17. CompuServe_NUA = "cisv1";
  18. CompuServe_NPSW = "classic";
  19. Tries = 5;
  20. twice_tried = %FALSE;
  21. on cancel goto Return_Cancel;
  22.  
  23. show "Connecting to CompuServe II";
  24.  
  25. send %CR;       ! First time through, send CR to Init node
  26.  
  27. Wait_UUNet:
  28.     if Tries = 0 goto UUNet_Failure;
  29.     Tries = Tries - 1;
  30.     wait
  31.         "Login:"        goto Send_Address,
  32.         "Password:"     goto Send_Password,
  33.         "failure"       goto Resend_Address,
  34.         %mdm_Failure    goto Lost_Carrier,
  35.         "Login Invalid" goto UUNet_Failure,
  36.         "no connection:"goto UUNet_Failure,
  37.         "reset"         goto UUNet_Failure,
  38.         "Connect Failed"goto UUNet_Failure,
  39.         "Unreachable"   goto UUNet_Failure,
  40.         "Unavailable"   goto UUNet_Failure,
  41.         "Host Name:"    goto Return_Success,
  42.         "User ID:"      goto Sendto_Hostname,
  43.         "Connected"     goto Another_Try,
  44.         "Connecting"    goto Another_Try
  45.     until 80;
  46.  
  47.     send %CR;
  48.     
  49.     goto Wait_UUNet;
  50.  
  51. Another_Try:
  52.     Tries = Tries + 1;
  53.     goto Wait_UUNet;
  54.     
  55. Resend_Address:
  56.     if twice_tried = %TRUE goto Cserve_NUA_Failure;
  57.     twice_tried = %TRUE;
  58.     goto Wait_UUNet;
  59.  
  60. Send_Address:
  61.     show "Sending CompuServe NUA...";
  62.     send CompuServe_NUA & %CR;
  63.     goto Wait_UUNet;
  64.  
  65. Send_Password:
  66.     send CompuServe_NPSW & %CR;
  67.     goto Wait_UUNet;
  68.  
  69. Sendto_Hostname:
  70.     send "/HOST" & %CR;
  71.     goto Return_Success;
  72.  
  73. Lost_Carrier:
  74.     define %FailureMsg = "Modem connection lost";
  75.  
  76. UUNet_Failure:
  77.     define %FailureMsg = "CompuServe II not responding";
  78.     goto Return_Failure;
  79.  
  80. Cserve_NUA_Failure:
  81.     define %FailureMsg = "CompuServe II not accepting NUA";
  82.  
  83. Return_Failure:
  84.     exit %Failure;
  85.  
  86. Return_Cancel:
  87.     exit %Cancel;
  88.  
  89. Return_Success:
  90.     exit %Success;
  91.